home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / VIG-PV12.ZIP / INFOHUNT.PPS < prev    next >
Text File  |  1994-07-07  |  2KB  |  59 lines
  1. boolean found
  2. boolean getout
  3. integer x
  4. string filename
  5. string tempstring
  6.  
  7. startdisp fns
  8.  
  9. while (!getout) do
  10.   filename=""
  11.   newlines 2
  12.   println "@X08InfoHunt for ProVote by ViGilante [PWA]" 
  13.   input "@X07Search Infoforms for what user (CR to quit): _",filename
  14.   filename=upper(filename)
  15.   newline
  16.   if (filename<>"") then
  17.     if (u_recnum(filename)<1) then
  18.       println filename+" is not a user here, standby for infoforms.."
  19.       wait
  20.     endif
  21.     found=false
  22.     tempstring="" 
  23.     for x=1 to len(filename) 
  24.       if (instr(mask_pwd(),mid(filename,x,1))>0&instr(chr(34)+" +,/;<>=|*%.:\^`?",mid(filename,x,1))=0) then
  25.         tempstring=tempstring+mid(filename,x,1)
  26.         if (len(tempstring)=8) x=len(filename)
  27.       endif
  28.     next
  29.     if (tempstring="") then
  30.       beep
  31.     else
  32.       filename=tempstring
  33.       for x=1 to readline(ppepath()+"provote.cnf",13)+1
  34.         if (exist(ppepath()+"save\"+filename+"."+string(x))) then
  35.           found=true
  36.           dispfile ppepath()+"save\"+filename+"."+string(x) ,0
  37.           ansipos 1,23
  38.           wait
  39.         endif
  40.       next
  41.       for x=1 to readline(ppepath()+"provote.cnf",13)+1
  42.         if (exist(ppepath()+"gone\"+filename+"."+string(x))) then
  43.           found=true
  44.           dispfile ppepath()+"gone\"+filename+"."+string(x) ,0
  45.           ansipos 1,23
  46.           wait
  47.         endif
  48.       next
  49.       fclose -1
  50.     endif
  51.     if (!found) println "@X0CNot found."
  52.   else
  53.     getout=true
  54.   endif
  55. endwhile
  56. newlines 2
  57. startdisp fcl
  58.  
  59.